Gold Medal Software 3/Gold Medal Software - Volume 3 (Gold Medal) (1994).iso/prog/evol202a.arj/PROG1.MNT

Text File | 1993-03-07 | 631b | 34 lines

Program MultiplyTwo;:>;:>.( {<^>}( This program reads in two numbers and prints the productVar:>;( <^> : <^> {The first number}( FirstNumberInteger)
<^> : <^> {The second number}( SecondNumber@6
)
<^> : <^> {The answer}( MyResult@6
)
)
)
Function <^>(<^>;<^>) : <^>;( MultiplyTwoNumbers<^> : <^>( OneNumber@6
)
<^> : <^>( AnotherNumber@6
)
@6
begin:>;:>end( <^> := :> * ( @14
@16
@19
)
)
)
begin:>;:>end( readln(:>,:>)( @5
@8
)
<^> := <^>(:>,:>)( @11
@14
@5
@8
)
writeln(:>,:>)( 'The first: '@5
' The Second: '@8
' The Product: '@11
)
)
)
 0